home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 68.7z / BS1 part 68 / Sisthema Personal v2.5 (1993)(Hobby - Work)(IT)[cr OTL].7z / Sisthema Personal v2.5 (1993)(Hobby - Work)(IT)[cr OTL].adf / t / Command-0-T01
Text File  |  1991-10-24  |  2KB  |  64 lines
  1.  
  2. if "WORK:schedina" EQ ""
  3.    ECHO "*N*e[1mA T T E N Z I O N E !*e[0m"
  4.    ECHO "*NNon conosco la partizione su cui installare il programma!"
  5.    ECHO "*NConsultare *e[33mAiuto_Installazione*e[0m per le istruzioni"
  6.    ASK "*NPremi Return per uscire..."
  7.    Skip end
  8. endif
  9.  
  10. ASSIGN DEST: "WORK:schedina"
  11.  
  12. RESIDENT C:ECHO
  13.  
  14. ECHO "*N*e[1m»   S I S T H E M A   P E R S O N A L   «*e[0m"
  15. ECHO "-----------------------------------------------------"
  16. ECHO "Procedura di installazione su disco rigido"
  17. ECHO "*N*N*e[32mInstalla_STH*e[31m provvederà ad installare SISTHEMA PERSONAL su *e[33mWORK:schedina*e[31m"
  18. ask "*NIntendi proseguire nell'installazione ? (y/n) "
  19.  
  20. IF WARN
  21.    ECHO "*NCreo il cassetto SISTHEMA_PERSONAL in *e[33mWORK:schedina*e[31m..."
  22.    IF NOT EXISTS DEST:SISTHEMA_PERSONAL
  23.      MAKEDIR >NIL: DEST:SISTHEMA_PERSONAL
  24.    ENDIF
  25.  
  26.    COPY SISTHEMA_PERSONAL:IconaCassetto to DEST:SISTHEMA_PERSONAL.info CLONE
  27.  
  28.    ECHO "*NInstallo SISTHEMA PERSONAL..."
  29.    COPY "SISTHEMA_PERSONAL:SISTHEMA PERSONAL#?" to DEST:SISTHEMA_PERSONAL CLONE QUIET
  30.  
  31.    IF NOT EXISTS FONTS:berto
  32.       ECHO "*NInstallo il font berto..."
  33.       makedir FONTS:berto
  34.       copy SISTHEMA_PERSONAL:Fonts/berto      to FONTS:berto quiet
  35.       copy SISTHEMA_PERSONAL:Fonts/berto.font to FONTS:
  36.    ENDIF
  37.  
  38.    IF NOT EXISTS FONTS:helvetica
  39.       ECHO "*NInstallo il font helvetica..."
  40.       makedir FONTS:helvetica
  41.       copy SISTHEMA_PERSONAL:Fonts/helvetica      to FONTS:helvetica quiet
  42.       copy SISTHEMA_PERSONAL:Fonts/helvetica.font to FONTS:
  43.    ENDIF
  44.  
  45.    IF NOT EXISTS FONTS:courier
  46.       ECHO "*NInstallo il font courier..."
  47.       makedir FONTS:courier
  48.       copy SISTHEMA_PERSONAL:Fonts/courier      to FONTS:courier quiet
  49.       copy SISTHEMA_PERSONAL:Fonts/courier.font to FONTS:
  50.    ENDIF
  51.  
  52.    ECHO "*NInstallazione conclusa con successo!"
  53.    ECHO "*NGRAZIE PER AVER SCELTO UN PRODOTTO PROGETTO SOFTWARE E BUONA FORTUNA!"
  54. ELSE
  55.    ECHO "*NLa procedura di installazione è stata abbandonata."
  56. ENDIF
  57.  
  58. WAIT 3 secs
  59.  
  60. lab end
  61. ASSIGN DEST:
  62. endcli >NIL:
  63.  
  64.